inherited fPaciente: TfPaciente
  Left = 259
  Top = 112
  Caption = 'Cadastro de Pacientes'
  ClientHeight = 445
  ClientWidth = 708
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited StsBr: TStatusBar
    Top = 426
    Width = 708
  end
  inherited Panel2: TPanel
    Top = 385
    Width = 708
    BevelInner = bvRaised
    inherited btnSair: TBitBtn
      Left = 493
    end
    inherited btnCancelar: TBitBtn
      Left = 403
    end
    inherited btnexcluir: TBitBtn
      Left = 403
    end
    inherited btngravar: TBitBtn
      Left = 313
    end
    inherited btnIncluir: TBitBtn
      Left = 313
    end
    inherited btnProcurar: TBitBtn
      Left = 223
      OnClick = btnProcurarClick
    end
    object BitBtn1: TBitBtn
      Left = 131
      Top = 4
      Width = 85
      Height = 33
      Hint = 'Consulta'
      Caption = 'Consulta'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = BitBtn1Click
      Glyph.Data = {
        36090000424D3609000000000000360000002800000018000000180000000100
        2000000000000009000000000000000000000000000000000000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C0FFC0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C00000000000C0C0C000C0C0C0008080
        00FF800000FF800000FF800000FF800000FF800000FF800000FF800000FF8000
        00FF800000FF800000FF800000FF800000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFF800000FF800000FF00000000C0C0C000C0C0C0008080
        00FF808000FF808000FF808000FF808000FF808000FF808000FF808000FF8080
        00FF808000FF808000FF808000FF808000FFFFFFFFFFFFFFFFFF0000FFFF0000
        FFFFFFFFFFFFFFFFFFFF808000FF808000FF00000000C0C0C000C0C0C0008080
        00FF808000FF808000FF808000FF808000FF808000FF808000FF808000FF8080
        00FF808000FF808000FF808000FF808000FFFFFFFFFF0000FFFF0000FFFF0000
        FFFF0000FFFFFFFFFFFF808000FF808000FF00000000C0C0C000C0C0C0008080
        00FF808000FF808000FF808000FF808000FF808000FF808000FF808000FF8080
        00FF808000FF808000FF808000FF808000FFFFFFFFFF0000FFFF0000FFFF0000
        FFFF0000FFFFFFFFFFFF808000FF808000FF00000000C0C0C000C0C0C0008080
        00FF808000FF808000FF808000FF808000FF808000FF808000FF808000FF8080
        00FF808000FF808000FF808000FF808000FFFFFFFFFFFFFFFFFF0000FFFF0000
        FFFFFFFFFFFFFFFFFFFF808000FF808000FF00000000C0C0C000C0C0C0008080
        00FF808000FF808000FF808000FF808000FF808000FF808000FF808000FF8080
        00FF808000FF808000FF808000FF808000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFF808000FF808000FF00000000C0C0C000C0C0C0008080
        00FF808000FF808000FF808000FF808000FF808000FF808000FF808000FF8080
        00FF808000FF808000FF808000FF808000FF808000FF808000FF808000FF8080
        00FF808000FF808000FF808000FF808000FF00000000C0C0C000C0C0C0008080
        00FFFFFF00FF808000FF808000FFFFFF00FF808000FF808000FFFFFF00FF8080
        00FF808000FFFFFF00FF808000FF808000FFFFFF00FF808000FF808000FFFFFF
        00FF808000FF808000FFFFFF00FF808000FF00000000C0C0C000C0C0C000C0C0
        C000808000FF808000FF808000FF808000FF808000FF808000FF808000FF8080
        00FF808000FF808000FF808000FF808000FF808000FF808000FF808000FF8080
        00FF808000FF808000FF808000FF808000FFC0C0C000C0C0C000C0C0C000C0C0
        C000808000FF808000FF808000FF808000FF808000FF808000FF808000FF8080
        00FF800000FF800000FF800000FF800000FF808000FF808000FF808000FF8080
        00FF808000FF808000FF808000FF808000FFC0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000FFFF00FFFFFF00FF808000FFFFFF00FFFFFF00FF808000FFFFFF
        00FF000000FF000000FFC0C0C0FF000000FF800000FF808000FF808000FFFFFF
        00FF808000FF808000FF808000FFC0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000808000FF800000FF800000FF808000FF808000FFFFFF00FF8080
        00FF000000FFC0C0C0FFFFFFFFFF000000FF800000FFFFFF00FFFFFF00FF8080
        00FF800000FF800000FF808000FFC0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000000000FF000000FF800000FF800000FF800000FF8000
        00FF000000FF000000FF000000FF000000FF800000FF800000FF800000FF8000
        00FF000000FF000000FFC0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000000000FF0000
        00FFC0C0C0FFC0C0C0FFC0C0C0FFC0C0C0FFC0C0C0FF000000FF00000000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000000000FF0000
        00FFC0C0C0FFC0C0C0FFC0C0C0FFC0C0C0FF000000FF000000FF00000000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C0000000
        00FF000000FF000000FF000000FF000000FF000000FF000000FFC0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0
        C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C000}
    end
  end
  inherited Panel3: TPanel
    Width = 708
    inherited DBTextDestaque1: TDBText
      DataField = 'NOME'
    end
    inherited DBTextDestaque: TDBText
      Width = 571
      DataField = 'NOME'
    end
    object BitBtn2: TBitBtn
      Left = 576
      Top = 8
      Width = 121
      Height = 25
      Caption = 'Imprimir Prontu'#225'rio'
      TabOrder = 0
      OnClick = BitBtn2Click
    end
  end
  object PageControl1: TPageControl [3]
    Left = 0
    Top = 41
    Width = 708
    Height = 344
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = '   CADASTRO   '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object Label1: TLabel
        Left = 6
        Top = 3
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
      end
      object Label2: TLabel
        Left = 234
        Top = 3
        Width = 28
        Height = 13
        Caption = 'Nome'
      end
      object Label21: TLabel
        Left = 77
        Top = 3
        Width = 54
        Height = 13
        Caption = 'Sobrenome'
      end
      object GroupBox1: TGroupBox
        Left = 5
        Top = 47
        Width = 518
        Height = 117
        Caption = 'Dados Pessoais'
        TabOrder = 3
        object Label4: TLabel
          Left = 7
          Top = 16
          Width = 27
          Height = 13
          Caption = 'Sexo:'
        end
        object Label5: TLabel
          Left = 89
          Top = 16
          Width = 19
          Height = 13
          Caption = 'Cor:'
        end
        object Label6: TLabel
          Left = 239
          Top = 16
          Width = 43
          Height = 13
          Caption = 'Est. Civil:'
        end
        object Label7: TLabel
          Left = 7
          Top = 64
          Width = 54
          Height = 13
          Caption = 'Dta. Nasc.:'
        end
        object Label8: TLabel
          Left = 81
          Top = 64
          Width = 97
          Height = 13
          Caption = 'Conv'#234'nio / Empresa'
        end
        object Label9: TLabel
          Left = 328
          Top = 16
          Width = 43
          Height = 13
          Caption = 'Profiss'#227'o'
        end
        object Label12: TLabel
          Left = 319
          Top = 64
          Width = 70
          Height = 13
          Caption = 'Sub. Categoria'
        end
        object SpeedButton1: TSpeedButton
          Left = 288
          Top = 79
          Width = 27
          Height = 23
          Flat = True
          Glyph.Data = {
            C2070000424DC20700000000000036000000280000001E000000150000000100
            1800000000008C070000120B0000120B00000000000000000000BFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0070A01F70A01F80AF0070
            A0BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBF108FBF2F8FB00F0F0F0000001F4F600F7FB0
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBF0070A020AFDF3FCFFF50909FF0C090806F500000002F607FBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0F70AF
            108FC03FCFFF3FCFFF50909FFFCF9FFFCF9F4F4030101F1F2F80B0BFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00609F1F9FCF3FCFFF1F9FCF3F
            CFFF4FCFFF50A0BFF0C090FFCF9FAF8F6F0000005F90B0BFBFBFBFBFBF005080
            2F80B000609FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBF0F7FB02FBFEF3FCFFF3FCFFF2090C070DFFF90E0
            FFAFE0FFAF9F80FFCF9FCFA080000000508FAF00609F409FC0609FB01F1F1F1F
            30400F70A0BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBF108FC03FCFFF40CFFF5FD0FF7FDFFF409FC0AFE0FFD0F0FFE0F0FF
            EFEFF0A09080806F50304F5F308FBF80D0F07FDFFF5F8F9F9F8060000000102F
            3F00609FBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBF0070A01080
            BF4FD0FF6FD0FF8FDFFFA0E0FFC0EFFFBFE0F05F9FC0F0FFFFF0FFFFDFF0FFBF
            E0FF5FAFCF0F90C050C0EF50D0FF3FCFFF50909FFFCF9F6F5F400000000F5F80
            BFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF0F7FAF30AFDF4FAFDF90E0FF
            AFEFFFCFEFFFDFF0FFEFFFFFF0FFFF2F9FC02F9FC060BFDF409FC00F8FB00070
            A000AFD030BFEF3FCFFF3FCFFF309FBFF0C090CFA0800000001F709FBFBFBFBF
            BFBFBFBFBFBFBFBF0000BFBFBFBFBFBF00609F90DFFF3F8FBFD0F0FFE0F0FFF0
            FFFFF0FFFFE0F0FFCFF0FF90D0EF1F9FCF00A0CF0090C000AFD00080B000AFD0
            20BFEF3FCFFF3FCFFF3FCFFF809080CFA0800000001F6F90BFBFBFBFBFBFBFBF
            BFBFBFBF0000BFBFBFBFBFBF00609FD0F0FF80BFD07FB0CFF0FFFFDFF0FFC0EF
            FFAFE0FF8FDFFF70DFFF50D0FF1FA0D00070AF0090C0007FAF00A0CF0F9FCF3F
            CFFF3FCFFF3FCFFF3FC0F050808000304F0070A0BFBFBFBFBFBFBFBFBFBFBFBF
            0000BFBFBFBFBFBF00609F8FBFD0D0E0F02F80AF207FAF60B0DF60BFDF60D0FF
            4FCFFF3FCFFF3FCFFF3FCFFF30C0FF1F9FD00090BF00A0CF00A0CF10A0D030C0
            FF1FAFDF1090C00070AF005080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
            BFBFBFBFBFBFBF00609F00609FBFBFBFBFBFBF0F70A020A0D020A0DF20A0DF30
            C0FF3FCFFF3FCFFF3FCFFF3FCFFF30C0FF20A0DF006F9F0070A0005080BFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0F7FAF20AFDF108FC01F9F
            CF109FD01090C0007FB0006F9F005080BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0070A0007FAF00609FBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBF0000}
          OnClick = SpeedButton1Click
        end
        object DBComboBox1: TDBComboBox
          Left = 7
          Top = 31
          Width = 82
          Height = 21
          CharCase = ecUpperCase
          DataField = 'SEXO'
          DataSource = DtSrc
          ItemHeight = 13
          Items.Strings = (
            'MASCULINO'
            'FEMININO')
          TabOrder = 0
          OnKeyPress = FormKeyPress
        end
        object FacDBEdit3: TFacDBEdit
          Left = 89
          Top = 31
          Width = 147
          Height = 21
          AutoSelect = False
          DataField = 'COR'
          DataSource = DtSrc
          TabOrder = 1
          OnKeyPress = FormKeyPress
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object DBComboBox2: TDBComboBox
          Left = 236
          Top = 31
          Width = 93
          Height = 21
          CharCase = ecUpperCase
          DataField = 'EST_CIVIL'
          DataSource = DtSrc
          ItemHeight = 13
          Items.Strings = (
            'CASADO(A)'
            'SOLTEIRO(A)'
            'SEPARADO(A)'
            'DIVORCIADO(A)'
            'VIUVO(A)'
            'DESCONHECIDO')
          TabOrder = 2
          OnKeyPress = FormKeyPress
        end
        object FacDBEdit4: TFacDBEdit
          Left = 7
          Top = 81
          Width = 73
          Height = 21
          AutoSelect = False
          DataField = 'DATA_NASC'
          DataSource = DtSrc
          MaxLength = 8
          TabOrder = 4
          OnKeyPress = FormKeyPress
          CaseMode = cmNormal
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit6: TFacDBEdit
          Left = 328
          Top = 31
          Width = 185
          Height = 21
          AutoSelect = False
          DataField = 'PROFISSAO'
          DataSource = DtSrc
          TabOrder = 3
          OnKeyPress = FormKeyPress
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit5: TFacDBEdit
          Left = 316
          Top = 81
          Width = 197
          Height = 21
          AutoSelect = False
          DataField = 'SUB_CATEGORIA'
          DataSource = DtSrc
          TabOrder = 5
          OnKeyPress = FormKeyPress
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 81
          Top = 81
          Width = 206
          Height = 21
          DataField = 'CATEGORIA'
          DataSource = DtSrc
          KeyField = 'CONVENIO'
          ListField = 'CONVENIO'
          ListSource = DataSource1
          TabOrder = 6
        end
      end
      object FacDBEdit1: TFacDBEdit
        Left = 5
        Top = 19
        Width = 69
        Height = 21
        TabStop = False
        AutoSelect = False
        Color = clInfoBk
        DataField = 'COD_PACIENTE'
        DataSource = DtSrc
        TabOrder = 0
        CaseMode = cmNormal
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object FacDBEdit2: TFacDBEdit
        Left = 235
        Top = 19
        Width = 288
        Height = 21
        AutoSelect = False
        DataField = 'NOME'
        DataSource = DtSrc
        TabOrder = 2
        OnKeyPress = FormKeyPress
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
      object GroupBox2: TGroupBox
        Left = 5
        Top = 167
        Width = 497
        Height = 146
        Caption = 'Endere'#231'o'
        TabOrder = 4
        object Label14: TLabel
          Left = 223
          Top = 57
          Width = 30
          Height = 13
          Caption = 'Bairro:'
        end
        object Label11: TLabel
          Left = 32
          Top = 15
          Width = 23
          Height = 13
          Caption = 'Rua:'
        end
        object Label13: TLabel
          Left = 32
          Top = 57
          Width = 67
          Height = 13
          Caption = 'Complemento:'
        end
        object Label15: TLabel
          Left = 319
          Top = 100
          Width = 17
          Height = 13
          Caption = 'UF:'
        end
        object Label16: TLabel
          Left = 375
          Top = 100
          Width = 24
          Height = 13
          Caption = 'CEP:'
        end
        object Label3: TLabel
          Left = 32
          Top = 100
          Width = 33
          Height = 13
          Caption = 'Cidade'
        end
        object FacDBEdit7: TFacDBEdit
          Left = 32
          Top = 31
          Width = 433
          Height = 21
          AutoSelect = False
          DataField = 'RUA'
          DataSource = DtSrc
          TabOrder = 0
          OnKeyPress = FormKeyPress
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit9: TFacDBEdit
          Left = 32
          Top = 74
          Width = 186
          Height = 21
          AutoSelect = False
          DataField = 'COMPLEMENTO'
          DataSource = DtSrc
          TabOrder = 1
          OnKeyPress = FormKeyPress
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit10: TFacDBEdit
          Left = 221
          Top = 74
          Width = 244
          Height = 21
          AutoSelect = False
          DataField = 'BAIRRO'
          DataSource = DtSrc
          TabOrder = 2
          OnKeyPress = FormKeyPress
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit11: TFacDBEdit
          Left = 32
          Top = 117
          Width = 284
          Height = 21
          AutoSelect = False
          DataField = 'CIDADE'
          DataSource = DtSrc
          TabOrder = 3
          OnKeyPress = FormKeyPress
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object DBComboBox3: TDBComboBox
          Left = 318
          Top = 117
          Width = 56
          Height = 21
          CharCase = ecUpperCase
          DataField = 'UF'
          DataSource = DtSrc
          ItemHeight = 13
          Items.Strings = (
            'AC'
            'AL'
            'AP'
            'AM'
            'BA'
            'CE'
            'DF'
            'ES'
            'GO'
            'MA'
            'MT'
            'MS'
            'MG'
            'PA'
            'PB'
            'PR'
            'PE'
            'PI'
            'RJ'
            'RN'
            'RS'
            'RO'
            'RR'
            'SC'
            'SP'
            'SE'
            'TO')
          TabOrder = 4
          OnKeyPress = FormKeyPress
        end
        object FacDBEdit12: TFacDBEdit
          Left = 375
          Top = 117
          Width = 89
          Height = 21
          AutoSelect = False
          DataField = 'CEP'
          DataSource = DtSrc
          TabOrder = 5
          OnKeyPress = FormKeyPress
          CaseMode = cmUpperCase
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
      end
      object Panel4: TPanel
        Left = 526
        Top = 4
        Width = 167
        Height = 159
        Color = clAqua
        TabOrder = 5
        object Panel1: TPanel
          Left = 5
          Top = 4
          Width = 157
          Height = 150
          BevelOuter = bvLowered
          TabOrder = 0
          object Label10: TLabel
            Left = 13
            Top = 101
            Width = 32
            Height = 13
            Caption = 'Celular'
          end
          object Label17: TLabel
            Left = 13
            Top = 57
            Width = 17
            Height = 13
            Caption = 'Fax'
          end
          object Label18: TLabel
            Left = 13
            Top = 12
            Width = 42
            Height = 13
            Caption = 'Telefone'
          end
          object FacDBEdit15: TFacDBEdit
            Left = 13
            Top = 116
            Width = 130
            Height = 21
            AutoSelect = False
            DataField = 'FONE2'
            DataSource = DtSrc
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnKeyPress = FormKeyPress
            CaseMode = cmUpperCase
            ColorOnFocus = clAqua
            EnterLikeTab = True
          end
          object FacDBEdit14: TFacDBEdit
            Left = 13
            Top = 73
            Width = 130
            Height = 21
            AutoSelect = False
            DataField = 'FONE1'
            DataSource = DtSrc
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnKeyPress = FormKeyPress
            CaseMode = cmUpperCase
            ColorOnFocus = clAqua
            EnterLikeTab = True
          end
          object FacDBEdit13: TFacDBEdit
            Left = 13
            Top = 27
            Width = 130
            Height = 21
            AutoSelect = False
            DataField = 'FONE'
            DataSource = DtSrc
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnKeyPress = FormKeyPress
            CaseMode = cmUpperCase
            ColorOnFocus = clAqua
            EnterLikeTab = True
          end
        end
      end
      object GroupBox3: TGroupBox
        Left = 507
        Top = 167
        Width = 187
        Height = 146
        Caption = 'Documentos'
        TabOrder = 6
        object Label19: TLabel
          Left = 5
          Top = 19
          Width = 17
          Height = 13
          Caption = 'CIC'
        end
        object Label20: TLabel
          Left = 4
          Top = 58
          Width = 16
          Height = 13
          Caption = 'RG'
        end
        object Label22: TLabel
          Left = 122
          Top = 58
          Width = 39
          Height = 13
          Caption = 'Emiss'#227'o'
        end
        object Label23: TLabel
          Left = 4
          Top = 98
          Width = 28
          Height = 13
          Caption = 'CTPS'
        end
        object Label24: TLabel
          Left = 122
          Top = 98
          Width = 24
          Height = 13
          Caption = 'S'#233'rie'
        end
        object FacDBEdit16: TFacDBEdit
          Left = 4
          Top = 32
          Width = 178
          Height = 21
          AutoSelect = False
          DataField = 'CIC'
          DataSource = DtSrc
          TabOrder = 0
          OnKeyPress = FormKeyPress
          CaseMode = cmNormal
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit17: TFacDBEdit
          Left = 3
          Top = 72
          Width = 116
          Height = 21
          AutoSelect = False
          DataField = 'RG'
          DataSource = DtSrc
          TabOrder = 1
          OnExit = FacDBEdit17Exit
          OnKeyPress = FormKeyPress
          CaseMode = cmNormal
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit18: TFacDBEdit
          Left = 120
          Top = 72
          Width = 63
          Height = 21
          AutoSelect = False
          DataField = 'RGORGAOEMISSOR'
          DataSource = DtSrc
          TabOrder = 2
          OnExit = FacDBEdit17Exit
          OnKeyPress = FormKeyPress
          CaseMode = cmNormal
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit19: TFacDBEdit
          Left = 3
          Top = 112
          Width = 116
          Height = 21
          AutoSelect = False
          DataField = 'CTPS'
          DataSource = DtSrc
          TabOrder = 3
          OnExit = FacDBEdit17Exit
          OnKeyPress = FormKeyPress
          CaseMode = cmNormal
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
        object FacDBEdit20: TFacDBEdit
          Left = 120
          Top = 112
          Width = 63
          Height = 21
          AutoSelect = False
          DataField = 'SERIE'
          DataSource = DtSrc
          TabOrder = 4
          OnExit = FacDBEdit17Exit
          OnKeyPress = FormKeyPress
          CaseMode = cmNormal
          ColorOnFocus = clYellow
          EnterLikeTab = True
        end
      end
      object FacDBEdit8: TFacDBEdit
        Left = 76
        Top = 19
        Width = 157
        Height = 21
        AutoSelect = False
        DataField = 'SOBRENOME'
        DataSource = DtSrc
        TabOrder = 1
        OnKeyPress = FormKeyPress
        CaseMode = cmUpperCase
        ColorOnFocus = clYellow
        EnterLikeTab = True
      end
    end
    object TabSheet3: TTabSheet
      Caption = '  ANTECEDENTES  '
      ImageIndex = 2
      object Label25: TLabel
        Left = 1
        Top = 16
        Width = 102
        Height = 13
        Caption = 'Cardio Circulat'#243'rios...:'
      end
      object Label26: TLabel
        Left = 149
        Top = 16
        Width = 64
        Height = 13
        Caption = 'Pulmonares..:'
      end
      object Label27: TLabel
        Left = 263
        Top = 16
        Width = 42
        Height = 13
        Caption = 'Renais..:'
      end
      object Label28: TLabel
        Left = 357
        Top = 16
        Width = 61
        Height = 13
        Caption = 'Digestivos...:'
      end
      object Label29: TLabel
        Left = 468
        Top = 16
        Width = 65
        Height = 13
        Caption = 'End'#243'crinos...:'
      end
      object Label30: TLabel
        Left = 597
        Top = 16
        Width = 65
        Height = 13
        Caption = 'Reum'#225'ticos..:'
      end
      object Label32: TLabel
        Left = 597
        Top = 46
        Width = 66
        Height = 13
        Caption = 'Audiol'#243'gicos.:'
      end
      object Label33: TLabel
        Left = 468
        Top = 46
        Width = 65
        Height = 13
        Caption = 'Neurol'#243'gicos:'
      end
      object Label34: TLabel
        Left = 263
        Top = 46
        Width = 156
        Height = 13
        Caption = 'Infecto contagiosos....................:'
      end
      object Label35: TLabel
        Left = 149
        Top = 46
        Width = 64
        Height = 13
        Caption = 'Neoplasicos.:'
      end
      object Label36: TLabel
        Left = 1
        Top = 46
        Width = 103
        Height = 13
        Caption = 'Cir'#250'rgicos..................:'
      end
      object Label31: TLabel
        Left = 1
        Top = 76
        Width = 102
        Height = 13
        Caption = 'Oftalmol'#243'gicos..........:'
      end
      object Label37: TLabel
        Left = 149
        Top = 76
        Width = 89
        Height = 13
        Caption = 'Lentes Corretoras.:'
      end
      object Label38: TLabel
        Left = 468
        Top = 76
        Width = 64
        Height = 13
        Caption = 'Perto............:'
      end
      object Label39: TLabel
        Left = 597
        Top = 76
        Width = 66
        Height = 13
        Caption = 'Longe...........:'
      end
      object Label40: TLabel
        Left = 1
        Top = 108
        Width = 102
        Height = 13
        Caption = 'Sangue tipo..............:'
      end
      object Label41: TLabel
        Left = 149
        Top = 108
        Width = 22
        Height = 13
        Caption = 'RH.:'
      end
      object Label42: TLabel
        Left = 263
        Top = 108
        Width = 86
        Height = 13
        Caption = 'Defici'#234'ncia fisica.:'
      end
      object Label43: TLabel
        Left = 399
        Top = 108
        Width = 45
        Height = 13
        Caption = 'Pr'#243'tese..:'
      end
      object Label44: TLabel
        Left = 495
        Top = 108
        Width = 30
        Height = 13
        Caption = 'Tipo..:'
      end
      object Label45: TLabel
        Left = 1
        Top = 141
        Width = 105
        Height = 13
        Caption = 'Acidente de Trabalho:'
      end
      object Label46: TLabel
        Left = 149
        Top = 141
        Width = 39
        Height = 13
        Caption = 'CID 10.:'
      end
      object Label47: TLabel
        Left = 263
        Top = 141
        Width = 27
        Height = 13
        Caption = 'Tipo.:'
      end
      object Label48: TLabel
        Left = 399
        Top = 141
        Width = 29
        Height = 13
        Caption = 'Data.:'
      end
      object Label49: TLabel
        Left = 495
        Top = 141
        Width = 65
        Height = 13
        Caption = 'Afastamento.:'
      end
      object Label50: TLabel
        Left = 648
        Top = 142
        Width = 28
        Height = 13
        Caption = 'INSS:'
      end
      object Label51: TLabel
        Left = 1
        Top = 173
        Width = 125
        Height = 13
        Caption = 'Depend'#234'ncia '#224' f'#225'rmacos.:'
      end
      object Label52: TLabel
        Left = 350
        Top = 173
        Width = 62
        Height = 13
        Caption = 'Frequ'#234'ncia..:'
      end
      object Label53: TLabel
        Left = 3
        Top = 199
        Width = 43
        Height = 13
        Caption = 'Outros...:'
      end
      object DBEdit1: TDBEdit
        Left = 106
        Top = 16
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'CARDIOCIRCULA'
        DataSource = DtSrc
        TabOrder = 0
        OnKeyPress = FormKeyPress
      end
      object DBEdit2: TDBEdit
        Left = 217
        Top = 16
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'PULMONARES'
        DataSource = DtSrc
        TabOrder = 1
        OnKeyPress = FormKeyPress
      end
      object DBEdit3: TDBEdit
        Left = 309
        Top = 16
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'RENAIS'
        DataSource = DtSrc
        TabOrder = 2
        OnKeyPress = FormKeyPress
      end
      object DBEdit4: TDBEdit
        Left = 420
        Top = 16
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'DIGESTIVOS'
        DataSource = DtSrc
        TabOrder = 3
        OnKeyPress = FormKeyPress
      end
      object DBEdit5: TDBEdit
        Left = 536
        Top = 16
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'ENDOCRINOS'
        DataSource = DtSrc
        TabOrder = 4
        OnKeyPress = FormKeyPress
      end
      object DBEdit6: TDBEdit
        Left = 665
        Top = 16
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'REUMATICOS'
        DataSource = DtSrc
        TabOrder = 5
        OnKeyPress = FormKeyPress
      end
      object DBEdit8: TDBEdit
        Left = 665
        Top = 46
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'AUDIOLOGICO'
        DataSource = DtSrc
        TabOrder = 10
        OnKeyPress = FormKeyPress
      end
      object DBEdit9: TDBEdit
        Left = 536
        Top = 46
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NEUROLOGICO'
        DataSource = DtSrc
        TabOrder = 9
        OnKeyPress = FormKeyPress
      end
      object DBEdit10: TDBEdit
        Left = 421
        Top = 46
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'INFECTOCONTAGIO'
        DataSource = DtSrc
        TabOrder = 8
        OnKeyPress = FormKeyPress
      end
      object DBEdit11: TDBEdit
        Left = 217
        Top = 46
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NEOPLASTICOS'
        DataSource = DtSrc
        TabOrder = 7
        OnKeyPress = FormKeyPress
      end
      object DBEdit12: TDBEdit
        Left = 106
        Top = 46
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'CIRURGICOS'
        DataSource = DtSrc
        TabOrder = 6
        OnKeyPress = FormKeyPress
      end
      object DBEdit7: TDBEdit
        Left = 106
        Top = 76
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'OFTALMOLOGICO'
        DataSource = DtSrc
        TabOrder = 11
        OnKeyPress = FormKeyPress
      end
      object DBEdit13: TDBEdit
        Left = 241
        Top = 76
        Width = 213
        Height = 21
        CharCase = ecUpperCase
        DataField = 'LENTESCORRETORAS'
        DataSource = DtSrc
        TabOrder = 12
        OnKeyPress = FormKeyPress
      end
      object DBEdit14: TDBEdit
        Left = 536
        Top = 76
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'PERTO'
        DataSource = DtSrc
        TabOrder = 13
        OnKeyPress = FormKeyPress
      end
      object DBEdit15: TDBEdit
        Left = 665
        Top = 76
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'LONGE'
        DataSource = DtSrc
        TabOrder = 14
        OnKeyPress = FormKeyPress
      end
      object DBEdit16: TDBEdit
        Left = 106
        Top = 108
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'SANGUETIPO'
        DataSource = DtSrc
        TabOrder = 15
        OnKeyPress = FormKeyPress
      end
      object DBEdit17: TDBEdit
        Left = 176
        Top = 108
        Width = 73
        Height = 21
        CharCase = ecUpperCase
        DataField = 'RH'
        DataSource = DtSrc
        TabOrder = 16
        OnKeyPress = FormKeyPress
      end
      object DBEdit18: TDBEdit
        Left = 354
        Top = 108
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'DEFFISICA'
        DataSource = DtSrc
        TabOrder = 17
        OnKeyPress = FormKeyPress
      end
      object DBEdit19: TDBEdit
        Left = 451
        Top = 108
        Width = 38
        Height = 21
        CharCase = ecUpperCase
        DataField = 'PROTESE'
        DataSource = DtSrc
        TabOrder = 18
        OnKeyPress = FormKeyPress
      end
      object DBEdit20: TDBEdit
        Left = 536
        Top = 108
        Width = 162
        Height = 21
        CharCase = ecUpperCase
        DataField = 'TIPOPROTESE'
        DataSource = DtSrc
        TabOrder = 19
        OnKeyPress = FormKeyPress
      end
      object DBEdit21: TDBEdit
        Left = 106
        Top = 141
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'ACIDENTETRAB'
        DataSource = DtSrc
        TabOrder = 20
        OnKeyPress = FormKeyPress
      end
      object DBEdit22: TDBEdit
        Left = 189
        Top = 141
        Width = 59
        Height = 21
        CharCase = ecUpperCase
        DataField = 'CID10'
        DataSource = DtSrc
        TabOrder = 21
        OnKeyPress = FormKeyPress
      end
      object DBEdit23: TDBEdit
        Left = 293
        Top = 141
        Width = 94
        Height = 21
        CharCase = ecUpperCase
        DataField = 'TIPOACIDENTE'
        DataSource = DtSrc
        TabOrder = 22
        OnKeyPress = FormKeyPress
      end
      object DBEdit24: TDBEdit
        Left = 429
        Top = 141
        Width = 61
        Height = 21
        CharCase = ecUpperCase
        DataField = 'DATAACIDENTE'
        DataSource = DtSrc
        TabOrder = 23
        OnKeyPress = FormKeyPress
      end
      object DBEdit25: TDBEdit
        Left = 564
        Top = 141
        Width = 80
        Height = 21
        CharCase = ecUpperCase
        DataField = 'AFASTAMENTO'
        DataSource = DtSrc
        TabOrder = 24
        OnKeyPress = FormKeyPress
      end
      object DBEdit26: TDBEdit
        Left = 677
        Top = 141
        Width = 21
        Height = 21
        CharCase = ecUpperCase
        DataField = 'INSS'
        DataSource = DtSrc
        TabOrder = 25
        OnKeyPress = FormKeyPress
      end
      object DBEdit27: TDBEdit
        Left = 128
        Top = 173
        Width = 215
        Height = 21
        CharCase = ecUpperCase
        DataField = 'DEPFARMACOS'
        DataSource = DtSrc
        TabOrder = 26
        OnKeyPress = FormKeyPress
      end
      object DBEdit28: TDBEdit
        Left = 413
        Top = 173
        Width = 285
        Height = 21
        CharCase = ecUpperCase
        DataField = 'FREQDEPFARMACOS'
        DataSource = DtSrc
        TabOrder = 27
        OnKeyPress = FormKeyPress
      end
      object DBMemo1: TDBMemo
        Left = 48
        Top = 199
        Width = 650
        Height = 36
        DataField = 'OUTROSANTECEDE'
        DataSource = DtSrc
        TabOrder = 28
        OnKeyPress = FormKeyPress
      end
      object GroupBox4: TGroupBox
        Left = 0
        Top = 242
        Width = 699
        Height = 72
        Caption = 'HABITOS'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 29
        object Label54: TLabel
          Left = 132
          Top = 19
          Width = 27
          Height = 13
          Caption = 'Tipo.:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label55: TLabel
          Left = 382
          Top = 19
          Width = 62
          Height = 13
          Caption = 'Frequ'#234'ncia..:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label56: TLabel
          Left = 132
          Top = 46
          Width = 28
          Height = 13
          Caption = 'Dia...:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label57: TLabel
          Left = 483
          Top = 46
          Width = 27
          Height = 13
          Caption = 'Tipo.:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label58: TLabel
          Left = 589
          Top = 46
          Width = 28
          Height = 13
          Caption = 'doses'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBEdit29: TDBEdit
          Left = 162
          Top = 19
          Width = 216
          Height = 21
          CharCase = ecUpperCase
          DataField = 'TIPOESPORTE'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnKeyPress = FormKeyPress
        end
        object DBEdit30: TDBEdit
          Left = 445
          Top = 19
          Width = 246
          Height = 21
          CharCase = ecUpperCase
          DataField = 'FREQESPORTE'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnKeyPress = FormKeyPress
        end
        object DBEdit31: TDBEdit
          Left = 163
          Top = 46
          Width = 95
          Height = 21
          CharCase = ecUpperCase
          DataField = 'TABAGISMO'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnKeyPress = FormKeyPress
        end
        object DBEdit32: TDBEdit
          Left = 513
          Top = 46
          Width = 72
          Height = 21
          CharCase = ecUpperCase
          DataField = 'TIPODEPENDETILISMO'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
          OnKeyPress = FormKeyPress
        end
        object DBEdit33: TDBEdit
          Left = 619
          Top = 46
          Width = 72
          Height = 21
          CharCase = ecUpperCase
          DataField = 'DOSES'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox1: TDBCheckBox
          Left = 8
          Top = 19
          Width = 111
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Pratica de Esportes:'
          DataField = 'PRATICAESPORTE'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox2: TDBCheckBox
          Left = 9
          Top = 46
          Width = 110
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Tabagismo.............:'
          DataField = 'FUMA'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox3: TDBCheckBox
          Left = 264
          Top = 46
          Width = 60
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Etilismo.:'
          DataField = 'ETILISMO'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox4: TDBCheckBox
          Left = 329
          Top = 46
          Width = 51
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Social.:'
          DataField = 'SOCIAL'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
        object DBCheckBox5: TDBCheckBox
          Left = 388
          Top = 46
          Width = 86
          Height = 17
          Alignment = taLeftJustify
          Caption = 'Depend'#234'ncia.:'
          DataField = 'DEPENDETILISMO'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          OnKeyPress = FormKeyPress
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = '  OUTROS  '
      ImageIndex = 3
      object GroupBox5: TGroupBox
        Left = 0
        Top = 1
        Width = 699
        Height = 189
        Caption = 'SA'#218'DE DA MULHER'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object GroupBox6: TGroupBox
          Left = 19
          Top = 13
          Width = 91
          Height = 42
          Caption = 'Menarca'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object Label59: TLabel
            Left = 58
            Top = 15
            Width = 23
            Height = 13
            Caption = 'anos'
          end
          object DBEdit34: TDBEdit
            Left = 8
            Top = 15
            Width = 49
            Height = 21
            CharCase = ecUpperCase
            DataField = 'MENARCA'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox7: TGroupBox
          Left = 113
          Top = 13
          Width = 86
          Height = 42
          Caption = 'Ciclo'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object Label60: TLabel
            Left = 58
            Top = 15
            Width = 19
            Height = 13
            Caption = 'dias'
          end
          object DBEdit35: TDBEdit
            Left = 8
            Top = 15
            Width = 49
            Height = 21
            CharCase = ecUpperCase
            DataField = 'CICLO'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox8: TGroupBox
          Left = 202
          Top = 13
          Width = 70
          Height = 42
          Caption = 'Gravidez'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          object DBEdit36: TDBEdit
            Left = 8
            Top = 15
            Width = 52
            Height = 21
            CharCase = ecUpperCase
            DataField = 'GRAVIDEZ'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox9: TGroupBox
          Left = 275
          Top = 13
          Width = 69
          Height = 42
          Caption = 'Abortos'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          object DBEdit37: TDBEdit
            Left = 8
            Top = 15
            Width = 52
            Height = 21
            CharCase = ecUpperCase
            DataField = 'ABORTO'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox10: TGroupBox
          Left = 347
          Top = 13
          Width = 75
          Height = 42
          Caption = 'Parto normal'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          object DBEdit38: TDBEdit
            Left = 11
            Top = 15
            Width = 52
            Height = 21
            CharCase = ecUpperCase
            DataField = 'PARTONORMAL'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox11: TGroupBox
          Left = 425
          Top = 13
          Width = 75
          Height = 42
          Caption = 'Parto ces'#225'ria'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          object DBEdit39: TDBEdit
            Left = 11
            Top = 15
            Width = 52
            Height = 21
            CharCase = ecUpperCase
            DataField = 'PARTOCESAREA'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox12: TGroupBox
          Left = 503
          Top = 13
          Width = 57
          Height = 42
          Caption = 'F'#243'rceps'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          object DBEdit40: TDBEdit
            Left = 5
            Top = 15
            Width = 46
            Height = 21
            CharCase = ecUpperCase
            DataField = 'FORCEPS'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox13: TGroupBox
          Left = 563
          Top = 13
          Width = 57
          Height = 42
          Caption = 'N.V.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          object DBEdit41: TDBEdit
            Left = 5
            Top = 15
            Width = 46
            Height = 21
            CharCase = ecUpperCase
            DataField = 'NV'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox14: TGroupBox
          Left = 623
          Top = 13
          Width = 57
          Height = 42
          Caption = 'N.M'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
          object DBEdit42: TDBEdit
            Left = 5
            Top = 15
            Width = 46
            Height = 21
            CharCase = ecUpperCase
            DataField = 'NM'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox15: TGroupBox
          Left = 19
          Top = 55
          Width = 286
          Height = 42
          Caption = 'Cit.onc'#243'tica'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
          object DBEdit43: TDBEdit
            Left = 8
            Top = 15
            Width = 270
            Height = 21
            CharCase = ecUpperCase
            DataField = 'CITONCOTICA'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox16: TGroupBox
          Left = 309
          Top = 55
          Width = 239
          Height = 42
          Caption = 'Periodicidade'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 10
          object DBEdit44: TDBEdit
            Left = 9
            Top = 15
            Width = 219
            Height = 21
            CharCase = ecUpperCase
            DataField = 'PEDIODICIDADE'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox17: TGroupBox
          Left = 552
          Top = 55
          Width = 128
          Height = 42
          Caption = 'Menopausa'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 11
          object Label62: TLabel
            Left = 96
            Top = 15
            Width = 23
            Height = 13
            Caption = 'anos'
          end
          object DBEdit45: TDBEdit
            Left = 8
            Top = 15
            Width = 85
            Height = 21
            CharCase = ecUpperCase
            DataField = 'MENOPAUSA'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox18: TGroupBox
          Left = 18
          Top = 99
          Width = 662
          Height = 42
          Caption = 'M'#233'todo Anticoncepcional'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 12
          object DBEdit46: TDBEdit
            Left = 8
            Top = 15
            Width = 644
            Height = 21
            CharCase = ecUpperCase
            DataField = 'METODOANTICONCEP'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox19: TGroupBox
          Left = 18
          Top = 142
          Width = 662
          Height = 42
          Caption = 'Outros'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 13
          object DBEdit47: TDBEdit
            Left = 8
            Top = 15
            Width = 644
            Height = 21
            CharCase = ecUpperCase
            DataField = 'OUTROSSAUDEMULHER'
            DataSource = DtSrc
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
        end
      end
      object GroupBox20: TGroupBox
        Left = 0
        Top = 191
        Width = 699
        Height = 126
        Caption = 'IMUNIZA'#199#195'O'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Label68: TLabel
          Left = 8
          Top = 101
          Width = 45
          Height = 13
          Caption = 'OUTRAS'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object GroupBox21: TGroupBox
          Left = 8
          Top = 14
          Width = 681
          Height = 39
          Caption = 'ANTITET'#194'NICA'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          object Label61: TLabel
            Left = 37
            Top = 14
            Width = 53
            Height = 13
            Caption = '1'#170' Dose:(0)'
          end
          object Label63: TLabel
            Left = 238
            Top = 14
            Width = 59
            Height = 13
            Caption = '2'#170' Dose:(60)'
          end
          object Label64: TLabel
            Left = 443
            Top = 14
            Width = 65
            Height = 13
            Caption = '3'#170' Dose:(240)'
          end
          object DBEdit48: TDBEdit
            Left = 95
            Top = 14
            Width = 131
            Height = 21
            CharCase = ecUpperCase
            DataField = 'ANTITETANICA1'
            DataSource = DtSrc
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
          object DBEdit49: TDBEdit
            Left = 300
            Top = 14
            Width = 131
            Height = 21
            CharCase = ecUpperCase
            DataField = 'ANTITETANICA2'
            DataSource = DtSrc
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnKeyPress = FormKeyPress
          end
          object DBEdit50: TDBEdit
            Left = 513
            Top = 14
            Width = 131
            Height = 21
            CharCase = ecUpperCase
            DataField = 'ANTITETANICA3'
            DataSource = DtSrc
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnKeyPress = FormKeyPress
          end
        end
        object GroupBox22: TGroupBox
          Left = 8
          Top = 55
          Width = 681
          Height = 40
          Caption = 'ANTIHEPATITE'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object Label65: TLabel
            Left = 37
            Top = 14
            Width = 53
            Height = 13
            Caption = '1'#170' Dose:(0)'
          end
          object Label66: TLabel
            Left = 238
            Top = 14
            Width = 59
            Height = 13
            Caption = '2'#170' Dose:(30)'
          end
          object Label67: TLabel
            Left = 443
            Top = 14
            Width = 65
            Height = 13
            Caption = '3'#170' Dose:(180)'
          end
          object DBEdit51: TDBEdit
            Left = 95
            Top = 14
            Width = 131
            Height = 21
            CharCase = ecUpperCase
            DataField = 'ANTIHEPATITE1'
            DataSource = DtSrc
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnKeyPress = FormKeyPress
          end
          object DBEdit52: TDBEdit
            Left = 300
            Top = 14
            Width = 131
            Height = 21
            CharCase = ecUpperCase
            DataField = 'ANTIHEPATITE2'
            DataSource = DtSrc
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnKeyPress = FormKeyPress
          end
          object DBEdit53: TDBEdit
            Left = 513
            Top = 14
            Width = 131
            Height = 21
            CharCase = ecUpperCase
            DataField = 'ANTIHEPATITE3'
            DataSource = DtSrc
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnKeyPress = FormKeyPress
          end
        end
        object DBEdit54: TDBEdit
          Left = 56
          Top = 101
          Width = 632
          Height = 21
          CharCase = ecUpperCase
          DataField = 'OUTRASIMUNIZACOES'
          DataSource = DtSrc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnKeyPress = FormKeyPress
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '  PRONTUARIO  '
      ImageIndex = 1
      object Memo1: TMemo
        Left = 8
        Top = 8
        Width = 689
        Height = 305
        Lines.Strings = (
          '...')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = DM.ClientDataSet1
    Left = 439
    Top = 9
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    Left = 471
    Top = 9
  end
  object repProntuario: TVCLReport
    Filename = 'C:\Arquivos de programas\Meta\DocSis\relatorio\prontuario.rep'
    Title = 'Prontu'#225'rio'
    Left = 408
    Top = 8
  end
  object SQLDataSet1: TSQLDataSet
    SQLConnection = DM.scSge
    CommandText = 
      'select * from CONVENIO '#13#10'where ((CONVENIO = :pcod) or (:pcod = '#39 +
      'todos'#39'))'
    Params = <
      item
        DataType = ftString
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'pcod'
        ParamType = ptInput
      end>
    Left = 536
    Top = 32
    object SQLDataSet1CONVENIO: TStringField
      FieldName = 'CONVENIO'
      Required = True
      Size = 50
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLDataSet1
    Constraints = True
    UpdateMode = upWhereKeyOnly
    Left = 576
    Top = 32
  end
  object cds_convenio: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'DataSetProvider1'
    Left = 624
    Top = 32
    object cds_convenioCONVENIO: TStringField
      FieldName = 'CONVENIO'
      Required = True
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = cds_convenio
    Left = 664
    Top = 32
  end
end
